﻿Imports System.Net.Mail
Imports Fruiterie_Atwater.Website.com.Mail

Public Class contact
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub



    Private Sub SubmitMsg_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SubmitMsg.Click

        Dim identiteExpediteur As String = TxtBoxPrenom.Text & " " & TxtBoxNom.Text
        Dim expediteur As String = TxtBoxMailExp.Text
        Dim message As String = "Message envoyé par : " & identiteExpediteur & ", le " & Date.Now.ToShortDateString & " à " & Date.Now.ToShortTimeString & "." & System.Environment.NewLine & "Courriel : " & expediteur & System.Environment.NewLine & System.Environment.NewLine & Request.Form("TxtAreaMsg")
        Dim mS As New MailSender(ConfigurationManager.AppSettings("contact"), expediteur, identiteExpediteur, DDLCat.SelectedItem.Text, message)
        mS.sendMessage()

        Dim cssClass As String
        Dim msgUser As String

        If (mS.FlagMsgSent) Then
            'Information pour l'utilisateur
            cssClass = "contactNoticeMsgSendOK"
            msgUser = "Votre message a bien été envoyé. Notre équipe vous remercie."
        Else
            cssClass = "contactNoticeMsgSendBAD"
            msgUser = "Désolé mais votre message n'a pu être envoyé, veuillez essayer ultérieurement."
        End If

        'Information pour l'utilisateur
        LNotice.CssClass = cssClass
        LNotice.Text = msgUser


    End Sub



End Class